﻿Imports cp_negocio
Public Class frm_usuario
    'Creamos un objeto de tipo negocio
    Dim n As New negocio
    'Creamos flag nro 1
    Dim f1 As Boolean
    Private Sub frm_usuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Centrado del boxnro1 - home principal
        box_central.Location = New Point((Me.Width \ 2) - (box_central.Width \ 2), (Me.Height \ 2) - (box_central.Height \ 2))
    End Sub
    'Alta de un usuario frm:usuario
    Private Sub btn_alta_Click(sender As Object, e As EventArgs) Handles btn_alta.Click
        f1 = n.agregar(txt_nombre.Text, txt_apellido.Text, txt_dni.Text, txt_legajo.Text, txt_sector.Text, txt_perfil.Text, txt_pass.Text)
        If f1 = True Then
            MsgBox("Usuario ya ha sido dado de alta", MsgBoxStyle.Information, "Error: Ex002")
        Else
            MsgBox("Usuario ha sido dado de alta", MsgBoxStyle.Information, "Success")
        End If
    End Sub
    'Baja de un usuario frm:usuario
    Private Sub btn_baja_Click(sender As Object, e As EventArgs) Handles btn_baja.Click
        f1 = n.borrar(txt_dni.Text)
        If f1 = False Then
            MsgBox("Usuario no ha sido dado de alta", MsgBoxStyle.Information, "Error: Ex003")
        Else
            MsgBox("Usuario ha sido borrado", MsgBoxStyle.Information, "Success")
        End If
    End Sub
    'Modificacion de un usuario frm:usuario
    Private Sub btn_modifi_Click(sender As Object, e As EventArgs) Handles btn_modifi.Click
        f1 = n.modificar(txt_nombre.Text, txt_apellido.Text, txt_dni.Text, txt_legajo.Text, txt_sector.Text, txt_perfil.Text, txt_pass.Text)
        If f1 = False Then
            MsgBox("Usuario no ha sido dado de alta, no se puede modificar", MsgBoxStyle.Information, "Error: Ex004")
        Else
            MsgBox("Usuario ha sido modificado", MsgBoxStyle.Information, "Success")
        End If
    End Sub
    'Verifico si existe para auto completar campos frm:usuario
    Private Sub autousuario(sender As Object, e As EventArgs) Handles btn_validar.Click
        'COMPLETAR EL AUTOCOMPLETADO
    End Sub
End Class